1.1
1 setwd("diretrio")
2 getwd()
1.2
1 rm(list = ls())
2 escrevendo e salvando no script
1.3
1 "consoantes" e "vogais"
2 "character"
3 letters <- as.factor(letters)